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MODULE LIB_SUBS General subroutines for LIBRARIAN 


i tne . (BL 18832), : 
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BEGIN 


' 
Pee RR eReR RARE A AREA AAAARHAAAAAHHHATAEHE TEAK AEH RATER ARAKeeHeHeeeeAKeReeeeAee 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ht 
DANCE SOF C C THE 
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i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE is HEREBY 
't TRANSFERRED. 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC ce 
:* se ookat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:* . 


ie DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR > etme OF ITS 
NOT SUPPLIED BY DIGITAL 


» 
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| 
eR RRRR AAA AAAA AA AAAAAAAEA ATTA EAA RETA ETA AAAARE AEA E HERE | 
lee | 
! 
FACILITY: Library command processor | 
i ABSTRACT: | 
The VAX/VMS Librarian is invoked by DCL to process the LIBRARY 
command. It utilizes the Librarian procedure set to perform 
the actual modifications to the library. 
i ENVIRONMENT : | 
} 


VAX native, user mode. 
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AUTHOR: Benn Schreiber, CREATION DATE: 21-June-1979 
i MODIFIED BY: 


v01.01 Benn Schreiber 8-Nov~-1979 | 
Add routine getfilnamdesc 
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L1B_SUBS 16-Sep-1984 02:04:43 VAX-11 Bliss-32 
vue Weseb-19BG 13:38:17 DISKSUMSMASTE 
; 3 aed 1 LIBRARY 
; 00 8 1 *SYSSLIBRARY:STARLET'; 
; 60 0059 1 REQUIRE 
3; 66) 0060 1 *PREFIX'; 
; © 0244 1 
; § 0245 1 EXTERNAL ROUTINE 
>; 64 0246 1 Lib$Sget_vm : ADDRESSING _MODE (GENERAL), !Allocate virtual memory 
; © 0247 1 LibSfree_vm : ADDRESSING_MODE (GENERAL); !Deallocate virtual memory 


vOe=000° 1Sseo- 1984 1981] DESKSUMGMASTERSCLI@RaR-GRcJsUBS.B32;1°%° (33 
: pe o8 ! GLOBAL ROUTINE Lib_get_mem (bytes, retadr) = 

i 29 : allocate virtual memory 

. oa 52 1 LibSget_vm (bytes, .retadr); 


-TITLE LIB SUBS 

- IDENT \VOE=000\ 

-EXTRN LIBSGET_VM, LIBSFREE_VM 
-PSECT $CODES,NOWRT,2 


0000 90000 .ENTRY LIB_GET_MEM, Save nothing > 0248 | 
08 AC DD 0008 PUSHL RETADR : 0252. 
04 AC 9F 0000 PUSHAB BYTES ; 
000000006 00 02 FB 60008 CALLS #2, LIBSGET_VM : | 
04 0000F RET : | 
; Routine Size: 16 bytes, Routine Base: $CODE$ + 0000 
: ? 0255 GLOBAL ROUTINE Lib_free_mem (bytes, address) = | 
oe 0955 1 ' deallocate virtual memory 
> #75 0256 1: 
ef -) 0257 1 Lib$free_vm (bytes, address); 
| 
0000 00000 .ENTRY LIB FREE _MEM, Save nothing : 0253) 
08 AC 9F 90008 PUSHAB ADDRES ; 0257 | 
04 AC 9F 0000 PUSHAB : | 
000000006 00 02 FB 00008 CALLS rh C IBSFREE_VM : | 
04 0000F RET ; | 


; Routine Size: 16 bytes, Routine Base: $CODE$S + 0010 


> 0258 1 GLOBAL ROUTINE Lib_get_zmem (bytes, retadr) = 
; #7 $23 BEGIN 

:; #379 60 : 

3 0 61 i Get zeroed memory 

; 1 0 o¢ i 

.. & 6 perforn (Lib_ ~pet. _mem (.bytes, .retadr)); 

; 8 64 HSFILL (0, vbytes, ..retadr); 

: BS 65 RETURN true 

= 66 END; 


003C 00000 -ENTRY LIB_GET_ZMEM, Save R2,R3,R4,R5 ; 0258 | 


1b-5¢ Sep-1 14 VAX-11 Bliss-32 v4.0-742 «| 
Wea eeen tae NS ee te Nee dWAAS fea scl fasan ercasuas.e32;4°° mo 
7E AC 7D 2 mMOVa BYTES, =(SP) : 0263 | 

D6. oAF _ § F CALLS i So ge : 

OF 3 A L STATU : 
8 p D MOVL.  a@RETADR 7 0264 | 

00 6E * 86 C ft MOVCS #0, (SPS, WOO. BYTES, (RO) : 
50 61 DO 00018 MOVL #1, RO + 0265 
04 00018 1$: RET > 0266 


; Routine Size: 28 bytes, Routine Base: S$CODE$ + 0020 


Sep-19 04:43 X-11 Bliss-32 V4.0-742 
16- sen 1944 95 ee TT SIRKSuMGMASTERSCL tanan cacisuss.832;1°%° «43 


~~ 


devnambufdesc Fdscéw. Length] = .devnambufdesc (Cdsc$w stength] - 4; 
devnambufdesc nter] + 4; 


dsc$a_pointer] = .devnambufdesc ([dsc$a_po 
' 


Assign the device and then do a $GETCHN to get the width 


WN —OOOnOu 


IA. AAI Poron 


if SASSIGN (DEVNAM = devnambufdesc, CHAN = devchan) 
devinfogese Asti Length) = dib$k length; 'Set up descriptor for $GETCHN 
e dsc$a_pointer] = dev nfobu 


vinfodesc | 
=" .devchan, SCOBUF = devint odesc) 
| 
| 
| 


WUE 


Wr —OO® 


SDASSGh (CHAN = “devchan); 5: channel 
RETURN true; 
END; 


| 
. a 67 1 GLOBAL ROUTINE find _List_width (fab, Listingwidth) = | 
; Hey 6 BEGIN | 
; $ ! Determine the width of the Listing Line 
3 4 f FAB is the fab of the open file, gidth” returned in Listingwidth. | 
‘i ¥ 6 % MAP 
; 94 74 fab : REF BBLOCK 
:> oe 75 
; ze BIND 
3 44 f namblk = .fab Cfab$l_nam] : BBLOCK; 'NAM block 
; FV 8 LOCAL 
; 100 80 devnamdesc : BBLOCK Cdsc$c_s_bin], 
; 101 0281 devnambuf : “VECTOR Cnam } shairss BYTE], 
: Ine 0 Ht devnambufdesc ae Sc$c_s_bin], 
; 10 028 devinfobuf : BBLOCK dibsk le engthy. 
; 104 0284 devinfodesc : BBLOCK Cdsc$t_s_bln 
; 105 0285 devchan; 
; 106 0 Hy 
; 107 028 LITERAL 
; 108 0288 escape = H+ *1B'; ‘ASCII <ESC> 
; 109 0289 itt dth = ‘Assume default of 80 
3 139 8 + ie CtabSt tia AND dev$m_spl) NEQ 0 'If device is spooled 
; ie 0 3 p>. Cdsc$w_length] = CHSFIND_CH (.namblk Coaaae esl] 
> 11 029 enamblkCnam$l_esal, ZASCIT ':'S 
> 114 0294 = .namblk Cnam$l _esal; 
3 132 8 + Soynendesc Cdsc$a_pointer] = enambLk Cnam$l _ésal; 
: 117 0297 ELSE BEGIN ‘Device is net _toeeled 
; #118 0298 devnamdesc (Cdsc$w_length] = CHS$FIND D_cH (.namblk (nang? rst 
3 119 444 enamblk~Cnam$l_rsaj, SASCIT ' Ns 
; 120 0300 = .namblk Cnam$l l_rsal; 
; \$) 8353 foynandesc Cdsc$a_pointer) = ~nambLk Cnam$l _ésal; 
.e : $303 PRA... . PRS Fdscéw. Length) _= nam$c_maxrss; 
3 124 0304 de ynempuresse & dsc$a_pointer) = devnambuf; 
."% B3p2 STRNL = devnamdesc, RSLLEN = devnambufdesc, RSLBUF = devnambufdesc); 
$59 IF pt ne to) EQL ch_escape 'Check for process permanent file 
: -% 8 0 THEN BEGIN 
3; 1 30 
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!Of find _List_width 
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X-11 
SKSVM 
» R1, DEVNAMDESC 


R2), RO 


51 
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B2 
AD 
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800° 
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8, RO, a4(R2) 
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E 
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SC 
DEVNAMBUF DESC +4 


§p) 


EVINFODESC 
BUF, DEVINFODESC+4 
pes¢ 
NFOBUF +6, @LISTINGWIDTH 
YSSDASSGN 


#4, DEVNAMBUFD 
6$ 
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10 
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000000006 
Routine Base: 


000000006 00 
000000006 00 
000000006 00 
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sr ROUTINE getfilnamdesc (fab, filedesc) = 


UNCTIONAL DESCRIPTION: 


L 
EGIN 
++ 
F 


Inputs: 


fab Address of the fab 
filedesc Address of string descriptor to store into 


' Outputs: 
filedesc is filled in. The strings tried are: 
1) resultant name string 


expanded name strin 
5} fil ’ 


G 
B 
' 
i 
i 
This routine returns a string descriptor for a file. 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
ename string 

le 


fi'edesc : REF BBLOCK; 


ND 
nam = .fab Cfab$l_nam] : BBLOCK; 


filedesc CdscSy. Length] = .nam Cnam$b rete) NEQ 0 '!If resultant name present 
edesc Cdsc$a_po nter] = .nam Cnam 

(filedese. fdsegue Length] = .nam [nai$b rest) NEQ 0 !If expanded name present 
dsc$a_pointer] = .nam Cnam$T_esa] 


i 
EG] 
Ledesc dsc$w_length] = .fab Cfab$b_fns); iVae 
D; 


a ao 
wmn —. 
me my 


ename string 


filen 
edesc Cdsc$a_pointer] = .fab Cfab$T_ fnai; all else fails 


j Mtlecate memory and copy the filename to it 


ib get -nen (.filedesc fu teng length], nameptr); 
SMOVE"(.filedesc Cdsc gthi. .filedesc Cdsc$a pointer], .nameptr); 
TORN tru tdsc$a pointer] = .nameptr; 


ee ed ad ee ed ce ee ed ed ee ee a ce cts a ee ee a el ee ce ec tl le ec cl el ec ee ch ec cl ed el 
OO O00 OO 0000 00 00 00 00 BIN SI IIS NR PAPA AA AAO IIIT du 
MR —OODNOAUESWND $0 OD NOUS WN OOD VOUS WN OOD NAUSWN—OOONOW OC 
SOOSCOSCOCOCOCSOOOCOOCOOCOOOCOOC COCO COOOCOOCOCOOOCOO OOOO OOO OOO OOOO OOO 


WAN AA AAAI AIAN W AIA AAAINI INIA WAIN AIA AIAN ANIAA 
SIO DS DS DS ODS DS DDS TTT Be BY EB BB WANA rppoponor 


=—OODNA NEW 9 ODNAUE WN $$ O OE NAME WN 0 OONA MEW OOONOUS 


IT MAP 
: fab : REF BBLOCK, 
5 
: 
5 


Da Om wr ere 
Sr Se 


‘Of getfilnamdesc 


0000 .ENTRY GETFILNAMDESC, Save R2,R3,R4,R5,R6 
04 ¢ 0008 SUBL2 #4, SP 
4 AC 7D 0000 MOV Fab RI 
0009 MOVL OtkIS. 
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LIB_SUBS 16-Sep-19 4:43 VAX-11 Blis $e V4.0-742 
voes 00 14- ety 7 6: 95 711 DISKSVMSMASTER: CLIBRAR.SRCISUBS.B32; fag 
5 04 A2 YE 0D MOVAB 4(R2), R6 
6 03 Ni 7 a011 MOVZBW 4(R3} (R2) 
08 1 13 BEQL 1$ 
66 04 AO D0 0001 MOVL 4(RO), (R6) 
14 11 00018 BRB 3$ 
62 0B Ad 3 Baio 1$: MOVZBW 11(RO), (R2) 
06 1 021 BEQL es 
66 0c ‘ DO 000 ; MOVL 2(RO), (R6) 
08 11 000 BRB 33 
62 34 Al 9B 00029 2$: MOVZBW 52(R1), (R2) 
66 2C Al 00 00020 MOVL 44(R1), (R6) 
5 po B98 1 3$: PUSHL SP 
7E 6 C 033 MOVZWL (R2), a act 
rece CGE 8s 4} 00036 cnt #2, LIB_G 
00 BE 00 86 62 28 00038 MOVC (RB) socks, CONAMEPTR 
66 6E DO 00041 MOVL § NAMEPTR, (R65 
50 01 00 00044 MOVL 1, RO- 
04 00047 RET 
; Routine Size: 72 bytes, Routine Base: SCODES + OOF9 
s 193 0372 1 END 
: 194 0373 O ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: SCODES 321 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
ee ar A ee ee Car “eee, Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: .$255$DUA28: CSYSLIBISTARLET.L32;1 9776 37 0 581 00:01.0 
; COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:SUBS/OBJ=OBJ$:SUBS MSRC$:SUBS/UPDATE=(ENH$: SUBS) 
321 code + 0 data bytes 
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; Run Time: 8 38:5 
£epeed Time: :18.3 
es/CPU Min 366 
Lenenes/CPU-Rin: 28176 
penety Used: 86 pages 
Compilation Complete 
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